home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-2.dxr / Internal_20_bucle lupa.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  946 b   |  39 lines
  1. on exitFrame
  2.   if rollOver(33) then
  3.     set nPosVer to the mouseV
  4.     set nPosHor to the mouseH
  5.     if the mouseV < 75 then
  6.       set nPosVer to 75
  7.     end if
  8.     if the mouseH < 404 then
  9.       set nPosHor to 404
  10.     end if
  11.     if the mouseV > 327 then
  12.       set nPosVer to 327
  13.     end if
  14.     if the mouseH > 552 then
  15.       set nPosHor to 552
  16.     end if
  17.     set nVer to ((nPosVer - 70) * -4) + 723
  18.     set nHor to ((nPosHor - 329) * -4) + 792
  19.     set the locV of sprite 31 to nVer
  20.     set the locH of sprite 31 to nHor
  21.     set the locH of sprite 34 to nPosHor
  22.     set the locV of sprite 34 to nPosVer
  23.     cursor(200)
  24.   else
  25.     cursor(-1)
  26.   end if
  27.   go(the frame)
  28. end
  29.  
  30. on mouseUp
  31.   if rollOver(33) then
  32.     set the member of sprite 34 to member "rojo" of castLib "elementos graficos"
  33.     updateStage()
  34.     snapshot(33, 37, 368, 353)
  35.     set the member of sprite 34 to member "verde" of castLib "elementos graficos"
  36.     updateStage()
  37.   end if
  38. end
  39.